www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Ad/Openad.asp

    <!--#include file="../conn.asp"-->
<!--#include file="../Function/Function.asp"-->
<%
	Dim ADID,AD_Link,rs
		ID=NoSqlHack(Request.QueryString("id"))
	Set rs=server.createobject("adodb.recordset")
		sql = "Select ADLink,ADHits from YWNT_TMS_Ad where ID=" & ID & ""
		rs.open sql,conn,1,3
	If not (rs.bof or rs.eof) Then
		AD_Link=rs("ADLink")
		rs("ADHits")=rs("ADHits") + 1
		rs.Update
	else
		response.write "<font size=2 color=red>没有找到您要浏览的广告</font>"
	End If
		rs.Close
	set rs=nothing
	call connclose()
	If AD_Link="" Then AD_Link="http://"&Request.Servervariables("server_name")
		response.redirect AD_Link
%>